home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / DMTDEMOS / SETMAP.DEM < prev    next >
Text File  |  1994-07-02  |  520b  |  32 lines
  1. program SetMapSample;
  2.  
  3.  uses crt, DMT;
  4.  
  5.  var
  6.    DrvLetter : char;
  7.  
  8. begin
  9.   Color( 7, 0 );
  10.   clrscr;
  11.  
  12.   write( 'Select drive ( A-Z ) [ :]');
  13.   gotoxy( wherex - 3, wherey );
  14.   DrvLetter := upcase( readkey );
  15.   writeln( DrvLetter );
  16.  
  17.   SetMap( DrvLetter );   { Call SetMap procedure }
  18.  
  19.   if ( ErrFlag ) then
  20.     begin
  21.       writeln( #7 );
  22.       writeln( ShowError( GetErrCode ) );
  23.     end
  24.   else
  25.     begin
  26.       clrscr;
  27.       writeln;
  28.       writeln( 'Done..... ' );
  29.     end;
  30.  
  31.   GetEnter;
  32. end.